home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43b.d64 / gleichungen ii (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  256b  |  15 lines
  1. 10 DEFFNA(X)=X*X*X-2*X*X+7
  2. 20 DEFFNB(X)=X*X+7*X
  3. 30 GE=5:REM GENAUIGKEIT
  4. 40 DE=0.5/10^GE
  5. 50 INPUT"STARTWERT";XA
  6. 60 X=XA
  7. 70 FA=FNA(X)-FNB(X)
  8. 80 X=XA+0.1
  9. 90 F=FNA(X)-FNB(X)
  10. 100 XN=X-(XA-X)*F/(FA-F)
  11. 110 D=ABS((X-XN)/(XN+DE))
  12. 120 IFD<DETHEN140
  13. 130 X=XN:GOTO90
  14. 140 PRINT"X=";XN
  15.